IBM InfoROM for OS/2 Beta 1995 January/IBM InfoROM for OS2 Beta 1-1995.ISO/testcert/storage/function/cdrom/qchan.scr

Text File | 1994-09-07 | 392 b | 17 lines

@thread QCHAN.LOG
@NewAlias cd CDROM.GRA
@IMPORT SYSINFO.TXT
cd LOG $PROMPT="LOGGING QCHAN"
cd set SECTORSTART=40000 SECTORCOUNT=42000
cd set ADDRESSMODE=LOGICALBLOCK
cd CDROM_OPEN
cd CDROM_PLAYAUDIO
cd response $PROMPT="LOGGING QUERYCHANINFO"
cd CDROM_QUERYCHANINFO
cd response $PROMPT="PLAYING AUDIO FOR 20 SECONDS" $PAUSE=20
cd CDROM_STOPAUDIO
cd CDROM_CLOSE
@flush cd